<div class="swiper-wrapper">
    <!--%
    '***********截取字符***********
    'str 字符串
    'strlen 要截取字符数s
    Function ToTitle(str, strlen)
        If str = "" Then
            ToTitle = ""
            Exit Function
        End If
        Dim l, t, c, i
        str = Replace(Replace(Replace(Replace(str, "&nbsp;", " "), "&quot;", Chr(34)), "&gt;", ">"), "&lt;", "<")
        l = Len(str)
        t = 0
        For i = 1 To l
            c = Abs(Asc(Mid(str, i, 1)))
            If c > 255 Then
                t = t + 2
            Else
                t = t + 1
            End If
            If t >= strlen Then
                ToTitle = Left(str, i)
                Exit For
            Else
                ToTitle = str
            End If
        Next
        ToTitle = Replace(Replace(Replace(Replace(ToTitle, " ", "&nbsp;"), Chr(34), "&quot;"), ">", "&gt;"), "<", "&lt;")
    End Function
    
    Function getrefidurl(url)
    dim runurl, urlpath
    if instr(url,"/autoshow/2019shanghai/wap/")=0 then
         urlpath=split(url,"/")
         runurl="/autoshow/2019shanghai/wap/" & urlpath(ubound(urlpath))
    end if
    getrefidurl=runurl
    End Function
    
    Function OutputLineBegin(objLine) '此function 为一行的开始
      if objLine.Links.Count>0 then
        'Response.Output ""
      End If
    End Function
    
    Function OutputLineEnd(objLine) '此function 为一行的结束
      if objLine.Links.Count>0 then
        'Response.Output ""
      End If
    End Function
    
    Function OutputALink(objLink,nums) '重复输出页面推荐内容
    
    '页面获取频道文档对象
    dim objnew,contentid,ZUOZHE,LAIYUAN
    dim objcontent
    set objnew=CreateObject("NewCMS.Content")
    contentid=objnew.GetUrlToId(replace(objLink.url,"http://www.chooseauto.com.cn",""))
    set objnew=nothing
    if contentid<>0 then
        set objcontent=CreateObject("UniCMS5.Content")
            objcontent.load clng(contentid)
            ZUOZHE =" " & objcontent.Item("ZUOZHE")
            LAIYUAN=objContent.ContentSource
        set objcontent=nothing
    else
       ZUOZHE=""
       LAIYUAN=""
    end if
    
         
    
    'PC端------------------------------------------------------- 
        Response.Output "<div class=""swiper-slide list-items"">"
        Response.Output "<a href="""&objLink.Url&""" target=""_blank"" class=""list-a"">"
        if objLink.IsVideo = true then
           Response.Output "<span class= ""play-btn""></span>" 
        End If
        Response.Output "<img src="""&objLink.pic&""" alt="""" width=""625"" height=""445"" >"
         Response.Output "</a>"
         Response.Output "<div class=""slide-tit"">"
         Response.Output "<a href="""&objLink.Url&"""  target=""_blank"">" & ToTitle(objLink.Title,26) &"</a>"
        Response.Output "</div>"
        Response.Output "</div>"
    
     '--------------------------------------------------------
    
     '手机端-----------------------------------------------------------
       outstr=outstr &"<div class=""swiper-slide"">"
       outstr=outstr &"<a href="""&objLink.Url&""" target=""_blank"">"
       outstr=outstr &"<img src="""&objLink.pic&""" alt="""">"
       outstr=outstr &"<p class=""banner_title""><span>"& ToTitle(objLink.Title,40) &"</span></p>"
       outstr=outstr &"</a></div>"	
         
    
    End Function
    
     '此处为循环输出所有选中的推荐文章
     dim outstr
    For i = 1 to  Column.Lines.count
      Set aline = Column.Lines(i)
       OutputLineBegin(aline) '一整行开始
    
      For j=1 to aline.Links.Count
            Set aLink = aline.Links(j)
            OutputALink alink,LiCount
            LiCount = LiCount +1
      Next
       OutputLineEnd(aline)  '一整行结束
    
    next
    dim tmpsavepath
    tmpsavepath="/autoshow/2019shanghai/wap/lunbo.htm"
     '创建存放路径
     Set objVFS = CreateObject("unicms5.SiteFolder")
      if  objVFS.FileExists("//1" & tmpsavepath) Then
          objVFS.DeleteFile "//1" & tmpsavepath
      end if
      Set objFile = objVFS.CreateFile(objVFS.GetFilePath("//1" & tmpsavepath), objVFS.GetFileName("//1" & tmpsavepath))
         objFile.Content= outstr
         objFile.save "admin"
        set objFile=nothing
    Set objVFS = nothing
    %-->

</div>